
**APPENDIX TABLE 9: Impact of Handholding**

**INDIVIDUAL AGGREATES 1**

use "$data/merge_bl_fu", clear

codebook A_EDT A_HH B_LL B_LLh C_EDT_LL C_HH_LL H_treat L_ttreat EDT_treat

*PANEL A

	local xvars "H_treat female d_lleligible bl_bus_owner fu_dummy*"
	local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate"

	est clear
	local j =1
	foreach y in `yvars' {
		reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'_fu
		sum `y'_fu if (fu_dummy7==0  & post==0 & H_treat==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelA-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(H_treat) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2, fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" )) replace
	estimates clear

**INDIVIDUAL AGGREGATES 2**

*1 diff*
	local xvars "H_treat female d_lleligible bl_bus_owner fu_dummy*"
	local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
	
	est clear
	local j =1
	foreach y in `yvars' {
		reg `y' `xvars' if ( fu_dummy7==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'
		sum `y' if (fu_dummy7==0 & edt_uptake==1 & H_treat==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelA-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(H_treat) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2  , fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" )) replace
	estimates clear

**PANEL B: With Female Interactions**
	
*Second Revision
	gen H_treat_fem=H_treat*female
	local xvars "H_treat H_treat_fem female d_lleligible bl_bus_owner fu_dummy*"
	local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate"
	
	est clear
	local j =1
	foreach y in `yvars' {
		reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'_fu
		test H_treat + H_treat_fem=0
		estadd scalar p_diff1 = r(p)
		sum `y'_fu if (fu_dummy7==0  & post==0 & H_treat==0 & female==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	
	estout * using "$out/OA-TableA9-PanelB-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(H_treat H_treat_fem) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1, fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" )) replace
	estimates clear

**INDIVIDUAL AGGREGATES 2**

*1 diff*
	local xvars "H_treat H_treat_fem female d_lleligible bl_bus_owner fu_dummy*"
	local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 

	est clear
	local j =1
	foreach y in `yvars' {
		reg `y' `xvars' if ( fu_dummy7==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'
		test H_treat + H_treat_fem=0
		estadd scalar p_diff1 = r(p)
		sum `y' if (fu_dummy7==0 & edt_uptake==1 & H_treat==0 & female==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelB-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(H_treat H_treat_fem) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1 , fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" )) replace
	estimates clear


*PANEL C: Without Female Interactions***

*Second Revision
	gen hh_elig=H_treat==1 & L_ttreat==0 & d_lleligible==1
	gen hh_no_elig=H_treat==1 & L_ttreat==0 & d_lleligible==0
	gen ne_nohh_ll=H_treat==0 & L_ttreat==0 & d_lleligible==0
	gen hh_elig_fem=hh_elig*female
	gen hh_no_elig_fem= hh_no_elig*female
	gen ne_nohh_ll_fem=ne_nohh_ll*female
	local xvars "hh_elig hh_no_elig B_LLh C_HH_LL ne_nohh_ll female bl_bus_owner fu_dummy*"
	local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate"
	
	est clear
	local j =1
	foreach y in `yvars' {
		reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'_fu
		
		test hh_elig =B_LLh
		estadd scalar p_diff1 = r(p)
		test hh_elig =C_HH_LL
		estadd scalar p_diff2 = r(p)
		test B_LLh=C_HH_LL
		estadd scalar p_diff3 = r(p)
		test hh_no_elig=ne_nohh_ll
		estadd scalar p_diff4 = r(p)
		
		sum `y'_bl if (fu_dummy7==0  & post==0 & edt_uptake==1 & B_LLh==0 & A_HH==0 & d_lleligible==1)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}


	estout * using "$out/OA-TableA9-PanelC-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(hh_elig hh_no_elig B_LLh C_HH_LL ne_nohh_ll) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4, fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" )) replace
	estimates clear

**INDIVIDUAL AGGREGATES 2**

*1 diff*
	local xvars "hh_elig hh_no_elig B_LLh C_HH_LL ne_nohh_ll female bl_bus_owner fu_dummy*"
	local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
	
	est clear
	local j =1
	foreach y in `yvars' {
		reg `y' `xvars' if ( fu_dummy7==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'
		
		test hh_elig =B_LLh
		estadd scalar p_diff1 = r(p)
		test hh_elig =C_HH_LL
		estadd scalar p_diff2 = r(p)
		test B_LLh=C_HH_LL
		estadd scalar p_diff3 = r(p)
		test hh_no_elig=ne_nohh_ll
		estadd scalar p_diff4 = r(p)

		sum `y' if (fu_dummy7==0 & edt_uptake==1 & B_LLh==0 & A_HH==0 & d_lleligible==1 )
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelC-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(hh_elig hh_no_elig B_LLh C_HH_LL ne_nohh_ll) starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 , fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" )) replace
	estimates clear

***PANEL D: Handholding with female interactions

**INDIVIDUAL AGGREATES 1**
*Diff in diff*
	local xvars "hh_elig hh_elig_fem hh_no_elig hh_no_elig_fem B_LLh B_LLh_female C_HH_LL C_HH_LL_female ne_nohh_ll ne_nohh_ll_fem female bl_bus_owner fu_dummy*"
	local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate"

	est clear
	local j =1
	foreach y in `yvars' {
		reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'_fu
		
		test hh_elig =B_LLh
		estadd scalar p_diff1 = r(p)
		test hh_elig =C_HH_LL
		estadd scalar p_diff2 = r(p)
		test B_LLh=C_HH_LL
		estadd scalar p_diff3 = r(p)
		test hh_no_elig=ne_nohh_ll
		estadd scalar p_diff4 = r(p)
		test hh_elig + hh_elig_fem=0
		estadd scalar p_diff5 = r(p)
		test hh_no_elig+hh_no_elig_fem=0
		estadd scalar p_diff6 = r(p)
		test B_LLh+B_LLh_female=0
		estadd scalar p_diff7 = r(p)
		test C_HH_LL+C_HH_LL_female=0
		estadd scalar p_diff8 = r(p)
		test ne_nohh_ll + ne_nohh_ll_fem=0
		estadd scalar p_diff9 = r(p)

		sum `y'_bl if (fu_dummy7==0  & post==0 & edt_uptake==1 & B_LLh==0 & A_HH==0 & d_lleligible==1 & female==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelD-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(hh_elig hh_elig_fem hh_no_elig hh_no_elig_fem B_LLh B_LLh_female C_HH_LL C_HH_LL_female ne_nohh_ll ne_nohh_ll_fem female) ///
		starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9 , fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
	estimates clear

**INDIVIDUAL AGGREGATES 2**
*1 diff*
	local xvars "hh_elig hh_elig_fem hh_no_elig hh_no_elig_fem B_LLh B_LLh_female C_HH_LL C_HH_LL_female ne_nohh_ll ne_nohh_ll_fem female bl_bus_owner fu_dummy*"
	local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 

	est clear
	local j =1
	foreach y in `yvars' {
		reg `y' `xvars' if ( fu_dummy7==0 & edt_uptake==1), cl(co_code1)
		estimates store `y'
		test hh_elig =B_LLh
		estadd scalar p_diff1 = r(p)
		test hh_elig =C_HH_LL
		estadd scalar p_diff2 = r(p)
		test B_LLh=C_HH_LL
		estadd scalar p_diff3 = r(p)
		test hh_no_elig=ne_nohh_ll
		estadd scalar p_diff4 = r(p)
		test hh_elig + hh_elig_fem=0
		estadd scalar p_diff5 = r(p)
		test hh_no_elig+hh_no_elig_fem=0
		estadd scalar p_diff6 = r(p)
		test B_LLh+B_LLh_female=0
		estadd scalar p_diff7 = r(p)
		test C_HH_LL+C_HH_LL_female=0
		estadd scalar p_diff8 = r(p)
		test ne_nohh_ll + ne_nohh_ll_fem=0
		estadd scalar p_diff9 = r(p)

		sum `y' if (fu_dummy7==0 & edt_uptake==1 & B_LLh==0 & A_HH==0 & d_lleligible==1 & female==0)
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}

	estout * using "$out/OA-TableA9-PanelD-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
		keep(hh_elig hh_elig_fem hh_no_elig hh_no_elig_fem B_LLh B_LLh_female C_HH_LL C_HH_LL_female ne_nohh_ll ne_nohh_ll_fem female) ///
		starlevels(* 0.10 ** 0.05 *** 0.01) ///
		stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9 , fmt(2 0 2 2 2 2 2 2 2 ) ///
		labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
	estimates clear

